unit locator;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Controls ;

type

  { TMyLocator }

  TMyLocator=class
    public
      constructor Create(contr:TControl);
  end;

implementation

{ TMyLocator }

constructor TMyLocator.Create(contr: TControl);
begin

end;

end.

